﻿Imports TransportadoraToledoBLL
Imports System.Windows.Forms

Public Class frm_login
    Public usuario As New UsuariosBLL

    Private Sub bEntrar_Click(sender As System.Object, e As System.EventArgs) Handles bEntrar.Click
        Dim frm As New frm_principal
        Dim tab As New DataTable
        Try
            If tbLogin.Text.Trim() = "" Or tbSenha.Text.Trim() = "" Then
                Throw New Exception("Entre com o login e a senha de usuário.")
            End If
            usuario.pLogin = tbLogin.Text
            usuario.pSenha = tbSenha.Text
            If usuario.pLogin = "newuser" And usuario.pSenha = "newuser" Then
                If (MessageBox.Show("Isso irá apagar todos os usuários cadastrados, deseja prosseguir?" + vbNewLine +
                                    "Em caso positivo, a tela para cadastrar um novo usuário será aberta.",
                                    "", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes) Then
                    usuario.apagar()
                    frm_cadastro_usuarios.ShowDialog()
                    tbLogin.Text = ""
                    tbSenha.Text = ""
                End If
            End If
                If (usuario.verificarLogin()) Then
                    If usuario.pAtivo = False Then Throw New Exception("Usuário Inativo")
                    tab = usuario.localizarPermissao(usuario.pCodigo)
                    For Each linha As DataRow In tab.Rows
                    Select Case linha(3)
                        Case 1
                            frm.Cargas.Enabled = True
                        Case 2
                            frm.histCargas.Enabled = True
                        Case 3
                            frm.Seguros.Enabled = True
                        Case 4
                            frm.TiposdeCargas.Enabled = True
                        Case 5
                            frm.Combustiveis.Enabled = True
                        Case 6
                            frm.ControleDeAbastecimentos.Enabled = True
                        Case 7
                            frm.Marcas.Enabled = True
                        Case 8
                            frm.Modelos.Enabled = True
                        Case 9
                            frm.Veiculos.Enabled = True
                        Case 10
                            frm.Clientes.Enabled = True
                        Case 11
                            frm.Funcionarios.Enabled = True
                        Case 12
                            frm.Rotas.Enabled = True
                        Case 13
                            frm.Usuarios.Enabled = True
                        Case 14
                            frm.AgendamentodeCargas.Enabled = True
                        Case 15
                            frm.ContasaPagar.Enabled = True
                        Case 16
                            frm.ContasdReceber.Enabled = True
                        Case 17
                            frm.EscaladeOperações.Enabled = True
                        Case 18
                            frm.LotacaodoVeiculo.Enabled = True
                        Case 19
                            frm.OrdemdeServiço.Enabled = True
                        Case 20
                            frm.CargasToolStripMenuItem3.Enabled = True
                        Case 21
                            frm.DestinosDeCargasToolStripMenuItem.Enabled = True
                        Case 22
                            frm.HistóricoDeCargaToolStripMenuItem.Enabled = True
                        Case 23
                            frm.SegurosToolStripMenuItem1.Enabled = True
                        Case 24
                            frm.TiposDeCargaToolStripMenuItem.Enabled = True
                        Case 25
                            frm.AbastecimentosToolStripMenuItem.Enabled = True
                        Case 26
                            frm.DisponivelToolStripMenuItem.Enabled = True
                        Case 27
                            frm.FichaDoCaminhãoToolStripMenuItem.Enabled = True
                        Case 28
                            frm.IndisponivelToolStripMenuItem.Enabled = True
                        Case 29
                            frm.ContasAPagarToolStripMenuItem.Enabled = True
                        Case 30
                            frm.ContasAReceberToolStripMenuItem.Enabled = True
                        Case 31
                            frm.ContasPagasToolStripMenuItem.Enabled = True
                        Case 32
                            frm.ContasRecebidasToolStripMenuItem.Enabled = True
                        Case 33
                            frm.ExtratoFinanceiroToolStripMenuItem.Enabled = True
                        Case 34
                            frm.ToolStripMenuItem3.Enabled = True
                        Case 35
                            frm.PessoaFisicaToolStripMenuItem.Enabled = True
                        Case 36
                            frm.PessoaJuridicaToolStripMenuItem.Enabled = True
                        Case 37
                            frm.FuncionariosToolStripMenuItem.Enabled = True
                        Case 38
                            frm.OcorrênciasNegativasToolStripMenuItem.Enabled = True
                        Case 39
                            frm.LotaçãoDeCaminhãoToolStripMenuItem.Enabled = True
                        Case 40
                            frm.RotasToolStripMenuItem.Enabled = True
                        Case 41
                            frm.UsuáriosToolStripMenuItem.Enabled = True
                    End Select
                    Next
                    frm.ShowDialog()
                    tbLogin.Text = ""
                    tbSenha.Text = ""
                Else
                    MessageBox.Show("Login ou senha inválidos.")
                End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
        
    End Sub
End Class